# Title     : TODO
# Objective : TODO
# Created by: Administrator
# Created on: 2020/9/28 0028
pacman::p_load(dplyr, magrittr, reshape2)

setwd("E:/projects/R_draw_sc/Lysimeter_Systems/data")

choseunit <- "A13"

data <- "Input.csv" %>% read.csv()


#筛选得到A13单元的1. 空气温度（TEMP/2/VP4）、2. 相对湿度（RH）、3. 大气压（BARO）、4. 水气压（VAPORP）作为输出；通过修正的Tetens公式计算5.
# 饱和蒸汽压差（VPD）作为输出，即：
#；

kk <- data %>%
  select(c("Time", "Sensor", choseunit)) %>%
  dcast(Time ~ Sensor)





